home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d12 / vol7n9.arc / RECORDER.BAS < prev    next >
BASIC Source File  |  1988-04-08  |  13KB  |  185 lines
  1. 100 REM -- BASIC PROGRAM TO CREATE RECORDER.COM
  2. 110 OPEN "RECORDER.COM" AS #1 LEN = 1
  3. 120 FIELD #1,1 AS A$
  4. 130 CHECKSUM = 0
  5. 140 FOR I = 1 TO  164 
  6. 150    LINESUM = 0
  7. 155    PRINT ".";
  8. 160    FOR J = 1 TO 8
  9. 170       READ BYTE
  10. 180       CHECKSUM = CHECKSUM + BYTE
  11. 190       LINESUM = LINESUM + BYTE
  12. 200       IF (BYTE < 256) THEN LSET A$ = CHR$(BYTE)
  13. 210       PUT #1
  14. 220    NEXT J
  15. 230    READ LINECHECK
  16. 240    IF LINECHECK <> LINESUM THEN PRINT "Error in Line";280 + 10 * I
  17. 250 NEXT I
  18. 260 CLOSE
  19. 270 IF CHECKSUM = 131824 THEN PRINT "Successful Completion!" : END
  20. 280 PRINT "COM file is not valid!" : END
  21. 290 DATA    233,   227,     3,    82,    69,    67,    79,    82,   842
  22. 300 DATA     68,    69,    82,    32,    49,    46,    48,    32,   426
  23. 310 DATA     40,    99,    41,    32,    49,    57,    56,    56,   430
  24. 320 DATA     32,    90,   105,   102,   102,    32,    67,   111,   641
  25. 330 DATA    109,   109,   117,   110,   105,    99,    97,   116,   862
  26. 340 DATA    105,   111,   110,   115,    32,    67,   111,    46,   697
  27. 350 DATA     13,    10,    80,    67,    32,    77,    97,   103,   479
  28. 360 DATA     97,   122,   105,   110,   101,    32,   254,    32,   853
  29. 370 DATA     84,   111,   109,    32,    75,   105,   104,   108,   728
  30. 380 DATA    107,   101,   110,    36,    26,    42,    84,    97,   603
  31. 390 DATA     98,   108,   101,    32,   105,   115,    32,   115,   706
  32. 400 DATA     97,   116,   117,   114,    97,   116,   101,   100,   858
  33. 410 DATA     42,    36,     0,     0,     0,     0,     0,     0,    78
  34. 420 DATA      0,     0,   200,     0,     0,     0,     0,     0,   200
  35. 430 DATA      0,     0,    32,    32,    32,    70,   105,   108,   379
  36. 440 DATA    101,    32,    78,    97,   109,   101,    32,    32,   582
  37. 450 DATA     84,   111,   116,    97,   108,    32,    32,    32,   612
  38. 460 DATA     82,   101,    97,   100,    32,    32,    87,   114,   645
  39. 470 DATA    105,   116,   101,    32,    32,    32,    69,    88,   575
  40. 480 DATA     69,    67,    36,     0,     0,     0,     0,     0,   172
  41. 490 DATA      0,     0,     0,     0,     0,     0,     0,     0,     0
  42. 500 DATA      0,     0,     0,     0,     0,   128,   252,     2,   382
  43. 510 DATA    114,    10,   128,   252,     4,   119,     5,    46,   678
  44. 520 DATA    255,     6,   171,     1,    46,   255,    46,   102,   882
  45. 530 DATA      1,   156,   251,    46,   128,    62,   170,     1,   815
  46. 540 DATA      0,   117,    20,   128,   252,    75,   116,    22,   730
  47. 550 DATA    128,   252,    14,   118,    10,   128,   252,    49,   951
  48. 560 DATA    116,     5,   128,   252,    69,   114,    49,   157,   890
  49. 570 DATA    250,    46,   255,    46,    98,     1,    80,    83,   859
  50. 580 DATA     81,    86,    87,    30,     6,    46,   198,     6,   540
  51. 590 DATA    170,     1,     1,   190,   215,     3,   232,    83,   895
  52. 600 DATA      1,   114,     6,   255,    68,    12,   255,    68,   779
  53. 610 DATA     18,    46,   198,     6,   170,     1,     0,     7,   446
  54. 620 DATA     31,    95,    94,    89,    91,    88,   235,   207,   930
  55. 630 DATA     46,   198,     6,   170,     1,     1,    46,   163,   631
  56. 640 DATA    168,     1,    46,   199,     6,   171,     1,     0,   592
  57. 650 DATA      0,   250,    46,   255,    30,    98,     1,   251,   931
  58. 660 DATA    156,    80,    83,    81,    82,    86,    87,    30,   685
  59. 670 DATA      6,   115,     3,   233,     3,     1,    46,   139,   546
  60. 680 DATA     14,   168,     1,   128,   237,    15,   116,    41,   720
  61. 690 DATA    254,   205,   116,    42,   128,   237,     4,   116,  1102
  62. 700 DATA     32,   254,   205,   116,    33,   254,   205,   116,  1215
  63. 710 DATA     24,   128,   237,    11,   116,    19,   254,   205,   994
  64. 720 DATA    116,    20,   254,   205,   116,    11,   128,   237,  1087
  65. 730 DATA      4,   116,     6,   254,   205,   116,     7,   235,   943
  66. 740 DATA     30,   187,    14,     0,   235,     3,   187,    16,   672
  67. 750 DATA      0,   190,   190,     3,   232,   213,     0,   114,   942
  68. 760 DATA     53,    46,   161,   171,     1,    46,     1,     0,   479
  69. 770 DATA     46,     1,    68,    12,   233,   178,     0,   128,   666
  70. 780 DATA    237,    20,   116,    29,   254,   205,   116,    25,  1002
  71. 790 DATA    254,   205,   116,    44,   254,   205,   116,    25,  1219
  72. 800 DATA    254,   205,   116,    36,   128,   237,     2,   116,  1094
  73. 810 DATA     16,   128,   237,     2,   116,    16,   233,   144,   892
  74. 820 DATA      0,    61,     5,     0,   125,    80,   233,   136,   640
  75. 830 DATA      0,   185,    14,     0,   235,    13,   128,   249,   824
  76. 840 DATA      2,   116,   246,   128,   249,     3,   117,   238,  1099
  77. 850 DATA    185,    16,     0,   131,   251,     5,   114,   230,   932
  78. 860 DATA     81,   232,    94,     1,   191,   230,     4,   185,  1018
  79. 870 DATA     30,     0,    46,    59,    29,   116,     8,   131,   419
  80. 880 DATA    199,     4,   226,   246,    91,   235,    90,    46,  1137
  81. 890 DATA    128,    62,   169,     1,    62,   117,     5,    46,   590
  82. 900 DATA    199,     5,     0,     0,    46,   139,   125,     2,   516
  83. 910 DATA     91,    46,   161,   171,     1,    46,     1,     1,   518
  84. 920 DATA     46,     1,    69,    12,   235,    59,    46,   163,   631
  85. 930 DATA    166,     1,   190,   215,     3,   232,    68,     0,   875
  86. 940 DATA    114,   164,    46,   161,   171,     1,     1,    68,   726
  87. 950 DATA     12,     1,    68,    14,    46,   139,    62,   112,   454
  88. 960 DATA      1,   131,   199,     4,   129,   255,    94,     5,   818
  89. 970 DATA    117,     3,   191,   230,     4,    46,   137,    62,   790
  90. 980 DATA    112,     1,    46,   139,    30,   166,     1,   232,   727
  91. 990 DATA    248,     0,    46,   137,    29,    46,   137,   117,   760
  92. 1000 DATA     2,    46,   198,     6,   170,     1,     0,     7,   430
  93. 1010 DATA    31,    95,    94,    90,    89,    91,    88,   157,   735
  94. 1020 DATA   251,   202,     2,     0,   252,    14,     7,   191,   919
  95. 1030 DATA   155,     1,   176,    32,   185,    11,     0,   243,   803
  96. 1040 DATA   170,   255,   214,   252,    14,    31,   139,    14,  1089
  97. 1050 DATA   106,     1,   190,    94,     5,   191,   155,     1,   743
  98. 1060 DATA    81,    86,   185,    11,     0,   243,   166,    94,   866
  99. 1070 DATA    88,   227,    73,   131,   198,    20,   139,   200,  1076
  100. 1080 DATA   226,   235,   139,    62,   110,     1,   131,   255,  1159
  101. 1090 DATA   255,   116,    32,   139,    14,   106,     1,   131,   794
  102. 1100 DATA   199,    20,    59,    62,   108,     1,   114,     3,   566
  103. 1110 DATA   191,    94,     5,   139,    69,    12,    61,     1,   572
  104. 1120 DATA     0,   118,    10,   226,   234,   199,     6,   110,   903
  105. 1130 DATA     1,   255,   255,   249,   195,   137,    62,   110,  1264
  106. 1140 DATA     1,    87,   252,   190,   155,     1,   185,    11,   882
  107. 1150 DATA     0,   243,   164,    51,   192,    71,   171,   171,  1063
  108. 1160 DATA   171,   171,   171,    94,   248,   195,    66,   139,  1255
  109. 1170 DATA   242,   131,   198,     8,   191,   163,     1,   185,  1119
  110. 1180 DATA     3,     0,   172,   232,    81,     0,   170,   226,   884
  111. 1190 DATA   249,   131,   238,     3,   235,    32,   195,   139,  1222
  112. 1200 DATA   242,   172,    10,   192,   116,    23,    60,    46,   861
  113. 1210 DATA   117,   247,    86,   191,   163,     1,   185,     3,   993
  114. 1220 DATA     0,   172,    10,   192,   116,     6,   232,    46,   774
  115. 1230 DATA     0,   170,   226,   245,    94,    78,    78,   253,  1144
  116. 1240 DATA   185,     8,     0,   191,   162,     1,    59,   242,   848
  117. 1250 DATA   114,    28,   172,    60,    92,   116,    23,    60,   665
  118. 1260 DATA    47,   116,    19,    60,    58,   116,    15,    60,   491
  119. 1270 DATA    32,   116,     4,   232,     9,     0,   170,   131,   694
  120. 1280 DATA   254,   255,   116,     2,   226,   224,   195,    60,  1332
  121. 1290 DATA    97,   114,     6,    60,   122,   119,     2,    36,   556
  122. 1300 DATA   223,   195,    83,   180,    81,   205,    33,    88,  1088
  123. 1310 DATA     3,   216,   195,    30,     7,   191,    94,     5,   741
  124. 1320 DATA   139,    14,   106,     1,    51,   192,   171,   131,   805
  125. 1330 DATA   199,    10,   171,   131,   199,     6,   226,   246,  1188
  126. 1340 DATA   191,   230,     4,   185,    30,     0,    51,   192,   883
  127. 1350 DATA   171,   184,    94,     5,   171,   226,   247,    46,  1144
  128. 1360 DATA   199,     6,   110,     1,    94,     5,    46,   199,   660
  129. 1370 DATA     6,   112,     1,   230,     4,   195,   232,   169,   949
  130. 1380 DATA     1,   227,    40,    51,   192,   138,    28,   128,   805
  131. 1390 DATA   235,    48,   114,    13,   128,   251,     9,   119,   917
  132. 1400 DATA     8,   183,    10,   246,   231,    50,   255,     3,   986
  133. 1410 DATA   195,    70,   226,   233,    11,   192,   116,    11,  1054
  134. 1420 DATA    61,   208,     7,   118,     3,   184,   208,     7,   796
  135. 1430 DATA   163,   106,     1,   184,    19,    53,   205,    33,   764
  136. 1440 DATA   137,    30,   102,     1,   140,     6,   104,     1,   521
  137. 1450 DATA   186,   173,     1,   184,    19,    37,   205,    33,   838
  138. 1460 DATA   184,    33,    53,   205,    33,   137,    30,    98,   773
  139. 1470 DATA     1,   140,     6,   100,     1,   186,   193,     1,   628
  140. 1480 DATA   184,    33,    37,   205,    33,   232,   115,   255,  1094
  141. 1490 DATA   161,    44,     0,   142,   192,   180,    73,   205,   997
  142. 1500 DATA    33,   161,   106,     1,   187,    20,     0,   247,   755
  143. 1510 DATA   227,     5,    94,     5,   163,   108,     1,     5,   608
  144. 1520 DATA    15,     0,   177,     4,   211,   232,   139,   208,   986
  145. 1530 DATA   184,     0,    49,   205,    33,   144,   186,     3,   804
  146. 1540 DATA     1,   232,    23,     1,   247,    22,     0,     1,   527
  147. 1550 DATA    51,   219,   140,   200,    67,    59,   195,   142,  1073
  148. 1560 DATA   195,   117,     3,   233,   104,   255,   190,     0,  1097
  149. 1570 DATA     1,   139,   254,   185,    16,     0,   243,   166,  1004
  150. 1580 DATA    11,   201,   117,   232,     6,    31,   191,    94,   883
  151. 1590 DATA     5,   139,    14,   106,     1,   198,    69,    11,   543
  152. 1600 DATA     0,   131,   199,    20,   226,   247,   232,   230,  1285
  153. 1610 DATA     0,   186,   114,     1,   232,   220,     0,   139,   892
  154. 1620 DATA    14,   106,     1,    81,   191,    94,     5,    51,   543
  155. 1630 DATA   192,   139,    14,   106,     1,    57,    69,    12,   590
  156. 1640 DATA   118,    11,   128,   125,    11,     0,   117,     5,   515
  157. 1650 DATA   139,   247,   139,    69,    12,   131,   199,    20,   956
  158. 1660 DATA   226,   235,   128,   124,    11,     1,   116,    79,   920
  159. 1670 DATA   198,    68,    11,     1,   139,   214,   131,   198,   960
  160. 1680 DATA    12,   131,    60,     0,   116,    65,   180,    64,   628
  161. 1690 DATA   187,     1,     0,   185,     8,     0,   205,    33,   619
  162. 1700 DATA    82,   176,    46,   232,   142,     0,    90,   131,   899
  163. 1710 DATA   194,     8,   180,    64,   185,     3,     0,   205,   839
  164. 1720 DATA    33,   173,    80,   232,    60,     0,   173,   232,   983
  165. 1730 DATA    56,     0,   173,   232,    52,     0,   173,   232,   918
  166. 1740 DATA    48,     0,   232,   122,     0,    88,    89,   226,   805
  167. 1750 DATA   154,    61,     2,     0,   114,     9,   232,   110,   682
  168. 1760 DATA     0,   186,    77,     1,   232,   100,     0,   232,   828
  169. 1770 DATA   112,     0,   227,    12,    46,   138,     4,    12,   551
  170. 1780 DATA    32,    60,   114,   116,     8,    70,   226,   244,   870
  171. 1790 DATA   184,     0,    76,   205,    33,   232,   123,   254,  1107
  172. 1800 DATA   235,   246,    80,   176,    32,   232,    60,     0,  1061
  173. 1810 DATA   176,    32,   232,    55,     0,    88,    51,   201,   835
  174. 1820 DATA   187,    16,    39,   232,    24,     0,   187,   232,   917
  175. 1830 DATA     3,   232,    18,     0,   187,   100,     0,   232,   772
  176. 1840 DATA    12,     0,   187,    10,     0,   232,     6,     0,   447
  177. 1850 DATA     4,    48,   232,    23,     0,   195,    51,   210,   763
  178. 1860 DATA   247,   243,    82,    11,   200,    11,   201,   117,  1112
  179. 1870 DATA     2,   176,   240,     4,    48,    81,   232,     3,   786
  180. 1880 DATA     0,    89,    88,   195,   138,   208,   180,     2,   900
  181. 1890 DATA   205,    33,   195,   180,     9,   205,    33,   176,  1036
  182. 1900 DATA    13,   232,   240,   255,   176,    10,   232,   235,  1393
  183. 1910 DATA   255,   195,   190,   128,     0,    46,   138,    12,   964
  184. 1920 DATA    50,   237,    70,   252,   195,     0,     0,     0,   804
  185.